home *** CD-ROM | disk | FTP | other *** search
/ Shareware Extravaganza - Disc 1 / ShareWare Extravaganza 1 of 4 (The Ultimate Shareware Company).iso / grprogs / mac2gem.exe / ARGLOOP.H < prev    next >
Text File  |  1987-09-11  |  3KB  |  102 lines
  1. /* argloop.h: @(#) Begining of argument loop, see argparse.h */
  2. /* by Alexander B. Abacus */
  3.  
  4.   a0.keysTerminated = 0;
  5.   a0.nextPositional = 1;
  6.   a0.argIndex = 1;
  7.  
  8.   if ( ( a0.argVector[1][0] == a0.keyTrigger )
  9.   &&   ( a0.argVector[1][1] == '!'           ) )
  10.   {
  11.     a0.textPointer = & a0.argVector[1][1];
  12. #ifdef Debug
  13.       /* if not followed by characters, debug all levels */
  14.       if ( (* (a0.textPointer + 1)) == '\0' ) debug[0] = (char) 127;
  15.  
  16.       /* if followed by characters, select debugging levels */
  17.       while ( (* ++a0.textPointer) != '\0' )
  18.       { /* for all characters following -! */
  19.     if ((* a0.textPointer) < 128) ++debug[* a0.textPointer];
  20.       } /* for all characters following -! */
  21. #else
  22.       fprintf
  23.       ( stderr
  24.       , " Compiled without debugging code. Option -! ineffective.\n"
  25.       );
  26. #endif
  27.     ++a0.argIndex;
  28.   }
  29.  
  30.   for ( (a0.argIndex); (a0.argIndex < a0.argc); (++a0.argIndex) )
  31.   { /* for all arguments */
  32. #ifdef DriverH
  33.     fprintf ( stderr, "Word %d \"%s\".\n", a0.argIndex, a0.argVector[a0.argIndex] );
  34. #endif
  35.  
  36.     if ( ( a0.argVector[a0.argIndex][0] != a0.keyTrigger )
  37.     ||     ( a0.keysTerminated != 0             )
  38.     ||     ( a0.argVector[a0.argIndex][1] == '\0'          ) )
  39.     { /* not a key: bubble up positional arguments */
  40.       if
  41.       (  ( a0.maxPositionals  >= 0 )
  42.       && ( a0.nextPositional > a0.maxPositionals )
  43.       )
  44.       { /* if(too many positionals) */
  45.     fprintf
  46.     ( stderr
  47.     , " Stop. Maximum %d positional arguments, excess at \"%s\".\n"
  48.     , a0.maxPositionals
  49.     , a0.argVector[a0.argIndex]
  50.     );
  51.     ArgTutor( a0.tutorial );
  52.       } /* if(too many positionals) */
  53.       a0.keysTerminated |= a0.keysLeading;
  54.       a0.argVector[a0.nextPositional] = a0.argVector[a0.argIndex];
  55.       /* (void) */ (*a0.ptrFunction) ( '\0', a0.argVector[a0.nextPositional] );
  56.       ++a0.nextPositional;
  57.     }
  58.     else /* it is a key */
  59.     {
  60.       a0.charIndex = 0;
  61.       a0.keyPointer = & a0.argVector[a0.argIndex][0];
  62.       do
  63.       { /* for all characters in an argument */
  64.     ++a0.charIndex;
  65.     ++a0.keyPointer;
  66.     if ( (*a0.keyPointer) == '\0' ) { break; } /* from do ... while */
  67. #ifdef DriverH
  68.     fprintf( stderr, "Remaining argument: \"%s\".\n", a0.keyPointer );
  69. #endif
  70.  
  71.     if ( a0.keyPointer[0] == a0.keyTrigger )
  72.     {
  73.       if ( a0.charIndex != 1 )
  74.       {
  75.         fprintf
  76.         ( stderr
  77.         , " Stop. Terminator of keys must be alone: \"%s\".\n"
  78.         , a0.argVector[a0.argIndex]
  79.         );
  80.         ArgTutor( a0.tutorial );
  81.       }
  82.       if ( a0.keyPointer[1] != '\0' )
  83.       {
  84.         fprintf
  85.         ( stderr
  86.         , " Stop. Terminator of keys followed by: \"%s\".\n"
  87.         , a0.argVector[a0.argIndex]
  88.         );
  89.         ArgTutor( a0.tutorial );
  90.       }
  91.       a0.keysTerminated = 1;
  92.     }
  93.     else
  94.     {
  95.       switch ( a0.keyPointer[0] )
  96.       {
  97.       case '?':
  98.         ArgTutor( a0.tutorial );
  99.         exit( a0.argc != 2);
  100.  
  101. /* argloop.h: End of file. */
  102.